home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / EDIT.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  561 b   |  29 lines
  1. ******************************************** (EDIT.PRG)
  2. CLEAR
  3. STORE ' ' TO OPTION
  4. STORE '    ' TO MACCT
  5. USE INV INDEX ACCTS
  6. DO WHILE .NOT. EOF()
  7.    SET CONFIRM ON
  8.    CLEAR
  9.    @ 3,1 SAY 'Want to edit some invoices '
  10.    ?
  11.    WAIT ' ?  ' TO OPTION
  12.    IF OPTION<>'Y'
  13.       CLEAR
  14.       SET CONFIRM OFF
  15.       @ 13,1 SAY 'Press F9 to return to main menu '
  16.       RETURN
  17.    ENDIF
  18.    CLEAR
  19.    ?
  20.    ?
  21.    ACCEPT 'Customer number ? ' TO MACCT
  22.    FIND &MACCT
  23.    SET FORM TO EDIT.FMT
  24.    EDIT
  25.    SET CONFIRM OFF
  26.    CLOSE FORM EDIT.FMT
  27. ENDDO
  28. RETURN
  29.